Digitální fotografie a video/Digitalni-fotografie-a-video-covermount.bin/Aplikace/DF/Kap_2/Menu.dxr/00003_Najezd male menu.ls

Text File | 1998-05-19 | 959 b | 37 lines

property Tlacitko, Znacka, Soubor
global Spust

on getPropertyDescriptionList
  set description to [:]
  addProp(description, #Znacka, [#comment: "Znacka:", #format: #string, #default: EMPTY])
  return description
  addProp(description, #Soubor, [#comment: "Soubor:", #format: #string, #default: EMPTY])
  return description
end

on getBehaviorDescription
  return "Nájezd a klik"
end

on mouseEnter me
  puppetSound(1, "Najezd")
  set the cursor of sprite the spriteNum of me to [member "ruka_1", member "ruka_2"]
  set Tlacitko to the castNum of sprite the spriteNum of me
  set the member of sprite the spriteNum of me to member (Tlacitko + 1)
end

on mouseLeave me
  set the cursor of sprite the spriteNum of me to -1
  set the member of sprite the spriteNum of me to member Tlacitko
end

on mouseDown me
  puppetSound(1, "Klik")
  set the member of sprite the spriteNum of me to member Tlacitko
end

on mouseUp me
  set Spust to Soubor
  go(Znacka)
end